home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 52 / Digital_Talk_52_2001-12-15_Digital_Talk_de_Side_A.d64 / laeufer 5 _kah (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  74 lines
  1. 1 q=peek(186):poke820,q:qa=peek(821):onqagoto8:rem---laeufer05---
  2. 2 b=53280:print"[147]":pokeb,0:pokeb+1,11:gosub130:gosub100
  3. 3 poke821,1:load"mslaeufer05*",q,1
  4. 8 poke45,0:poke46,40:clr:goto120:rem sov=$2800
  5. 9 qp=30:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  6. 11 q$="laeufer":qv$="05":qt$=q$+qv$:qd$="121001":return
  7. 12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
  8. 18 gosub12:print"   g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  9. 61 cy=int(c/100):cx=c-(cy*100)
  10. 62 poke211,cx:poke214,cy:sys58640:return
  11. 68 lc=int(l/100):ll=l-(lc*100)
  12. 69 forx=lctoll:poke781,x:sys59903:next:return
  13. 100 printtab(15)""t0$
  14. 102 printtab(10)"[152]nach einer  idee von"
  15. 104 printtab(14)"[155]bruno  jonne"
  16. 106 printtab(12)"[152]programmiert von"
  17. 108 printtab(16)"[153]ka ha te"
  18. 110 fori=0to2000:next
  19. 112 printtab(10)"[152]daten werden geladen"
  20. 114 printtab(14)"[144]bitte warten[155]"
  21. 116 return
  22. 120 l=724:gosub68:gosub130:c=1406:gosub61
  23. 121 print"[152]fuer erklaerung <e[152]> druecken":printtab(18)"oder"
  24. 122 printtab(10)"[144]weiter mit  <return>[155]"
  25. 123 r$="":getr$:on-(r$<>chr$(13)andr$<>chr$(69))goto123
  26. 124 on-(r$=chr$(13))-2*(r$="e")goto126,200:goto123
  27. 126 print"[147]":poke7685,50:goto150
  28. 130 t0$="[153]laeufer 05":t1$="[155]von kahate":return
  29. 140 printt0$;:printspc(70)t1$:return
  30. 150 l=724:gosub68:rem ---prgstart---
  31. 160 z=rnd(-ti):rem ---zufallszahlen---
  32. 162 z1=int(rnd(1)*5):rem -schrifthori-
  33. 163 z2=int(rnd(1)*30):rem -schriftvert-
  34. 164 ifz2<1then163
  35. 166 z3=int(rnd(1)*5):rem -sptup/down-
  36. 167 z4=int(rnd(1)*230):rem -sptypos-
  37. 168 ifz4<50then167
  38. 170 z5=int(rnd(1)*16):rem -sptfarbe-
  39. 171 ifz5=2then170:rem -farbe ungut-
  40. 172 ifz5=4then170
  41. 173 ifz5=6then170
  42. 174 ifz5=8then170
  43. 175 ifz5=9then170
  44. 176 ifz5=11then170:rem -wenn hgfarbe-
  45. 182 poke822,z1:poke823,z2:rem -schrpo-
  46. 184 poke824,z3:poke825,z4:rem -sptpo-
  47. 186 poke7689,z5:rem -sptfarbe-
  48. 190 l=6:gosub68:rem -schrout-
  49. 192 c=z1*100+z2:gosub61:gosub140
  50. 199 goto240
  51. 200 rem -erlaeuterungstext-
  52. 201 print"[147][155]erlaeuterung:"
  53. 202 print"text und laeufer finden sich"
  54. 203 print"aehnlich einem bildschirmschoner"
  55. 204 print"an immer anderen bildschirmstellen."
  56. 205 print"erscheinungsorte und laeuferfarben"
  57. 206 print"werden durch zufallszahlen bestimmt."
  58. 207 print"der laeufer startet automatisch"
  59. 208 print"alle 8 bis 10 sekunden    oder"
  60. 209 print"nach jedem <return>    oder auch"
  61. 210 print"dauernd nach taste  <d>"
  62. 211 print"programmende mit taste  <_>"
  63. 219 goto122
  64. 239 rem ---laeufer-start---
  65. 240 sys7680:rem ---aufruf ms-prog---
  66. 300 i=0:rem ---warteschleife---
  67. 301 r$="":getr$
  68. 302 ifr$=chr$(13)thenr1$="":goto150
  69. 304 ifr$=chr$(95)then999
  70. 306 ifr$=chr$(68)thenr1$="d"
  71. 308 ifr1$="d"then150
  72. 310 i=i+1:on-(i>=200)goto150:goto301
  73. 999 poke198,0:poke53269,0:print"[147]":end
  74.